home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / Text-Chat-Scripts / pp-320m.exe / pp300 / p-qmenu.mrc < prev    next >
Text File  |  1998-08-15  |  26KB  |  656 lines

  1. ; -----------------------------------------------------
  2. ; Peace and Protection (by misspai)
  3. ; -----------------------------------------------------
  4. ; Menubar and query/chat
  5. ; popups (load in remotes)
  6. ; -----------------------------------------------------
  7. menu menubar {
  8.   Script
  9.   .Configure
  10.   ..General configuration...:config
  11.   ..-
  12.   ..Colors...:colors
  13.   ..Color schemes...:schemes
  14.   ..Fonts...:fonts
  15.   ..-
  16.   ..Blacklist...:blackedit
  17.   ..Userlist...:useredit
  18.   .Install
  19.   ..Addons...:addons
  20.   ..Patches...:patches
  21.   .-
  22.   .Help!
  23.   ..It's too slow!
  24.   ...Disable "really slow" features:_slowpre | _slow1 | _slowend
  25.   ...Disable "somewhat slow" features:_slowpre | _slow1 | _slow2 | _slowend
  26.   ...-
  27.   ...Explain:help ! menubar too slow help
  28.   ..Panic!:dispa Attempting to clean up internal states and fix any problems... | flush
  29.   ..-
  30.   ..About P&&P...:about
  31.   ..Visit homepage:run $readini $_wrapfile($mircini) Files Browser http://pairc.com/pnp/
  32.   ..E-Mail author...:if ($script(uemail1.mrc) == $null) run mailto:pnp@pairc.com | else esend Karlaá<pnp@pairc.com> Peace and Protection %pp.ver
  33.   ..-
  34.   ..View helpfile:pp
  35.   .-
  36.   .Advertise:myver
  37.   Protection
  38.   .Channel
  39.   ..Global protection settings...:protedit
  40.   ..%.chanp:protedit $active
  41.   ..-
  42.   ..General channel configuration...:config chanprot
  43.   ..-
  44.   ..(right-click in channel for more options):{ }
  45.   .Personal
  46.   ..$_tf2any(%_ignoreall,Disableemergencyignore,Emergency ignore + hide) $+     CtrlF9:911
  47.   ..Random nick:rn
  48.   ..$_tf2any(%_oldnick,Undorandomnick,$null):urn
  49.   ..-
  50.   ..Set CTCP flood protection...:config yourprot 3
  51.   ..Clear flood counters:defld
  52.   ..-
  53.   ..Protection options...:config yourprot
  54.   ..DCC options...:config dccopt
  55.   .Nuke/ICMP
  56.   ..Display attack stats...:netstat
  57.   ..Display stats "real-time"...:_askyn detect Update stats every 5 seconds? (may not run well on certain systems)
  58.   ..-
  59.   ..Detect connected IPs...:arp
  60.   ..-
  61.   ..Scan server for ports...:ports
  62.   ..Raise local port...:_askr portup Amount to raise local port by? (see help for details)
  63.   ..-
  64.   ..Help:help ! menubar nuke help
  65.   .-
  66.   .Self ping    F1:sp
  67.   -
  68.   $_tf2any($_if(@ !isin [ %whois.route ] ),$null,Whois Tome):tome
  69.   $_tf2any($_if(@ isin [ %whois.route ] ),$null,Last whois)
  70.   .Query:q %_last.whois
  71.   .Chat:c %_last.whois
  72.   .Chat to IP:c %_last.whois.addr
  73.   .-
  74.   .Join
  75.   ..$_tf2any(%^follow.2,All,$null):j %_last.whois.chan
  76.   ..-
  77.   ..%^follow.1:j %^follow.1
  78.   ..%^follow.2:j %^follow.2
  79.   ..%^follow.3:j %^follow.3
  80.   ..%^follow.4:j %^follow.4
  81.   ..%^follow.5:j %^follow.5
  82.   ..%^follow.6:j %^follow.6
  83.   ..%^follow.7:j %^follow.7
  84.   ..%^follow.8:j %^follow.8
  85.   ..%^follow.9:j %^follow.9
  86.   ..%^follow.10:j %^follow.10
  87.   .-
  88.   .Ping
  89.   ..Standard:ping %_last.whois
  90.   ..-
  91.   ..Fake ping:fping %_last.whois
  92.   ..Version ping:vping %_last.whois
  93.   ..Server ping:sping %_last.serv
  94.   .-
  95.   .User info
  96.   ..Extended whois:w " $+ %_last.whois $+ " " $+ %_last.whois $+ "
  97.   ..-
  98.   ..User central:uwho %_last.whois
  99.   ..Address book:abook %_last.whois
  100.   ..-
  101.   ..Get DNS:dns %_last.whois.addr
  102.   ..Get hostmask:host %_last.whoisf
  103.   ..Unix finger:finger %_last.whois.identd $+ @ $+ %_last.whois.addr
  104.   .User level
  105.   ..View:user %_last.whoisf
  106.   ..Authorize:auth %_last.whoisf
  107.   ..-
  108.   ..Level 1 (no access):user %_last.whoisf 1
  109.   ..Level 50 (safe):user %_last.whoisf 50
  110.   ..Level 75 (protected):user %_last.whoisf 75
  111.   ..-
  112.   ..Add sublevel
  113.   ..."chat"    (auto accept DCC chats):user %_last.whoisf +chat
  114.   ..."send"    (auto accept DCC sends):user %_last.whoisf +send
  115.   ..."nodcc"    (auto ignore DCCs):user %_last.whoisf +nodcc
  116.   ..."voice"    (auto voice user):user %_last.whoisf +voice
  117.   ..."op"    (op on ANY channel via password):user %_last.whoisf +op
  118.   ..."nopw"    (with "op", ops without password):user %_last.whoisf +nopw
  119.   ..Remove sublevel
  120.   ..."chat"    (auto accept DCC chats):user %_last.whoisf -chat
  121.   ..."send"    (auto accept DCC sends):user %_last.whoisf -send
  122.   ..."nodcc"    (auto ignore DCCs):user %_last.whoisf -nodcc
  123.   ..."voice"    (auto voice user):user %_last.whoisf -voice
  124.   ..."op"    (remove ALL ops access):user %_last.whoisf -op
  125.   ..."nopw"    (ops without password):user %_last.whoisf -nopw
  126.   .Notify
  127.   ..Add to notify (any server)
  128.   ...No address check...:set %_arhelp notify -a %_last.whois %_last.whoisf | _pentry _arhelp Note to use for user's notify?2
  129.   ...Identd check...:set %_arhelp notify -ai %_last.whois %_last.whoisf | _pentry _arhelp Note to use for user's notify?2
  130.   ...Identd + domain check...:set %_arhelp notify -ad %_last.whois %_last.whoisf | _pentry _arhelp Note to use for user's notify?2
  131.   ..Add to notify (this server only)
  132.   ...No address check...:set %_arhelp notify -av %_last.whois %_last.whoisf | _pentry _arhelp Note to use for user's notify?2
  133.   ...Identd check...:set %_arhelp notify -aiv %_last.whois %_last.whoisf | _pentry _arhelp Note to use for user's notify?2
  134.   ...Identd + domain check...:set %_arhelp notify -adv %_last.whois %_last.whoisf | _pentry _arhelp Note to use for user's notify?2
  135.   ..-
  136.   ..Remove from notify:notify -r %_last.whois
  137.   .-
  138.   .$_tf2any(%+whois.retain,WhoisTome...,$null):tome
  139.   .-
  140.   .Configure...:config whoisping
  141.   -
  142.   Sound
  143.   .Recent
  144.   ..%^snd.1:_dragdrop r r $_a1x($gettok(%^spath.1,2-,32))
  145.   ..%^snd.2:_dragdrop r r $_a1x($gettok(%^spath.2,2-,32))
  146.   ..%^snd.3:_dragdrop r r $_a1x($gettok(%^spath.3,2-,32))
  147.   ..%^snd.4:_dragdrop r r $_a1x($gettok(%^spath.4,2-,32))
  148.   ..%^snd.5:_dragdrop r r $_a1x($gettok(%^spath.5,2-,32))
  149.   ..%^snd.6:_dragdrop r r $_a1x($gettok(%^spath.6,2-,32))
  150.   ..%^snd.7:_dragdrop r r $_a1x($gettok(%^spath.7,2-,32))
  151.   ..%^snd.8:_dragdrop r r $_a1x($gettok(%^spath.8,2-,32))
  152.   ..-
  153.   ..%^snd.clear:unset %^snd.*
  154.   .-
  155.   .F-Key control    F9:f9
  156.   .-
  157.   .Random
  158.   ..MP2/3    F5:randmp
  159.   ..Wave:randwav
  160.   ..Midi    CtrlF5:randmid
  161.   ..-
  162.   ..%_^t.1:zrand $gettok(%soundfile.custom,1,32)
  163.   ..%_^t.2:zrand $gettok(%soundfile.custom,2,32)
  164.   ..%_^t.3:zrand $gettok(%soundfile.custom,3,32)
  165.   ..%_^t.4:zrand $gettok(%soundfile.custom,4,32)
  166.   ..%_^t.5:zrand $gettok(%soundfile.custom,5,32)
  167.   .Select...
  168.   ..MP2/3:mp
  169.   ..Wave:wav
  170.   ..Midi:mid
  171.   ..-
  172.   ..%_^t.1:z $gettok(%soundfile.custom,1,32)
  173.   ..%_^t.2:z $gettok(%soundfile.custom,2,32)
  174.   ..%_^t.3:z $gettok(%soundfile.custom,3,32)
  175.   ..%_^t.4:z $gettok(%soundfile.custom,4,32)
  176.   ..%_^t.5:z $gettok(%soundfile.custom,5,32)
  177.   .Find...
  178.   ..MP2/3:_askr mp Words or filename mask to find?
  179.   ..Wave:_askr wav Words or filename mask to find?
  180.   ..Midi:_askr mid Words or filename mask to find?
  181.   ..-
  182.   ..%_^t.1:set %_arhelp z $gettok(%soundfile.custom,1,32) | _askr _arhelp Words or filename mask to find?
  183.   ..%_^t.2:set %_arhelp z $gettok(%soundfile.custom,2,32) | _askr _arhelp Words or filename mask to find?
  184.   ..%_^t.3:set %_arhelp z $gettok(%soundfile.custom,3,32) | _askr _arhelp Words or filename mask to find?
  185.   ..%_^t.4:set %_arhelp z $gettok(%soundfile.custom,4,32) | _askr _arhelp Words or filename mask to find?
  186.   ..%_^t.5:set %_arhelp z $gettok(%soundfile.custom,5,32) | _askr _arhelp Words or filename mask to find?
  187.   .List...
  188.   ..MP2/3:mp ?
  189.   ..Wave:wav ?
  190.   ..Midi:mid ?
  191.   ..-
  192.   ..%_^t.1:z $gettok(%soundfile.custom,1,32) ?
  193.   ..%_^t.2:z $gettok(%soundfile.custom,2,32) ?
  194.   ..%_^t.3:z $gettok(%soundfile.custom,3,32) ?
  195.   ..%_^t.4:z $gettok(%soundfile.custom,4,32) ?
  196.   ..%_^t.5:z $gettok(%soundfile.custom,5,32) ?
  197.   .-
  198.   .Playlist
  199.   ..Playlist forty MP2/3s    ShiftF5:playlist
  200.   ..Any number of MP2/3s...:_askr playlist Number of files to playlist?
  201.   ..Find matching MP2/3s...:_askr playlist Words or filename mask to playlist?
  202.   .Misc
  203.   ..Repeat last sound:rrand
  204.   ..Delete last sound:drand
  205.   ..-
  206.   ..Set description for last sound...:desc
  207.   ..Clear description for last sound:cdesc
  208.   ..-
  209.   ..Reindex
  210.   ...MP2/3:mpindex
  211.   ...Wave:wavindex
  212.   ...Midi:midindex
  213.   ...-
  214.   ...%_^t.1:zindex $gettok(%soundfile.custom,1,32)
  215.   ...%_^t.2:zindex $gettok(%soundfile.custom,2,32)
  216.   ...%_^t.3:zindex $gettok(%soundfile.custom,3,32)
  217.   ...%_^t.4:zindex $gettok(%soundfile.custom,4,32)
  218.   ...%_^t.5:zindex $gettok(%soundfile.custom,5,32)
  219.   .-
  220.   .Configure...:config soundsys
  221.   CD Player
  222.   .Play CD:cd p
  223.   .-
  224.   .CD info
  225.   ..Title-     $+ %_cdp.title:{}
  226.   ..Artist-     $+ %_cdp.artist:{}
  227.   ..Tracks-     $+ %_cdp.tracks:{}
  228.   ..-
  229.   ..Load CD    F3:cd
  230.   ..View CD...    ShiftF3:cd v
  231.   .Load CD    F3:cd
  232.   .-
  233.   .Play track
  234.   ..%_^cdp.1:cd 1
  235.   ..%_^cdp.2:cd 2
  236.   ..%_^cdp.3:cd 3
  237.   ..%_^cdp.4:cd 4
  238.   ..%_^cdp.5:cd 5
  239.   ..%_^cdp.6:cd 6
  240.   ..%_^cdp.7:cd 7
  241.   ..%_^cdp.8:cd 8
  242.   ..%_^cdp.9:cd 9
  243.   ..%_^cdp.10:cd 10
  244.   ..%_^cdp.11:cd 11
  245.   ..%_^cdp.12:cd 12
  246.   ..%_^cdp.13:cd 13
  247.   ..%_^cdp.14:cd 14
  248.   ..%_^cdp.15:cd 15
  249.   ..%_^cdp.16:cd 16
  250.   ..%_^cdp.17:cd 17
  251.   ..%_^cdp.18:cd 18
  252.   ..%_^cdp.19:cd 19
  253.   ..%_^cdp.20:cd 20
  254.   ..More...    ShiftF3:cd v
  255.   .Play to window
  256.   ..%_^cdp.1:cd 1 !
  257.   ..%_^cdp.2:cd 2 !
  258.   ..%_^cdp.3:cd 3 !
  259.   ..%_^cdp.4:cd 4 !
  260.   ..%_^cdp.5:cd 5 !
  261.   ..%_^cdp.6:cd 6 !
  262.   ..%_^cdp.7:cd 7 !
  263.   ..%_^cdp.8:cd 8 !
  264.   ..%_^cdp.9:cd 9 !
  265.   ..%_^cdp.10:cd 10 !
  266.   ..%_^cdp.11:cd 11 !
  267.   ..%_^cdp.12:cd 12 !
  268.   ..%_^cdp.13:cd 13 !
  269.   ..%_^cdp.14:cd 14 !
  270.   ..%_^cdp.15:cd 15 !
  271.   ..%_^cdp.16:cd 16 !
  272.   ..%_^cdp.17:cd 17 !
  273.   ..%_^cdp.18:cd 18 !
  274.   ..%_^cdp.19:cd 19 !
  275.   ..%_^cdp.20:cd 20 !
  276.   ..More...    ShiftF3:cd v
  277.   .View CD...    ShiftF3:cd v
  278.   .-
  279.   .Settings
  280.   ..Drive
  281.   ...%cdp.drive:{}
  282.   ...-
  283.   ...Change...:cd d
  284.   ..Where to store CD info
  285.   ...%cdp.inifile:{}
  286.   ...-
  287.   ...Change...:cd i
  288.   -
  289.   Files
  290.   .Log Files
  291.   ..Recent
  292.   ...%^log.1:edit $logdir $+ $_a1x($gettok(%^log.1,2-,32))
  293.   ...%^log.2:edit $logdir $+ $_a1x($gettok(%^log.2,2-,32))
  294.   ...%^log.3:edit $logdir $+ $_a1x($gettok(%^log.3,2-,32))
  295.   ...%^log.4:edit $logdir $+ $_a1x($gettok(%^log.4,2-,32))
  296.   ...%^log.5:edit $logdir $+ $_a1x($gettok(%^log.5,2-,32))
  297.   ...%^log.6:edit $logdir $+ $_a1x($gettok(%^log.6,2-,32))
  298.   ...%^log.7:edit $logdir $+ $_a1x($gettok(%^log.7,2-,32))
  299.   ...%^log.8:edit $logdir $+ $_a1x($gettok(%^log.8,2-,32))
  300.   ...-
  301.   ...%^log.clear:unset %^log.*
  302.   ..Standard
  303.   ...Activity.log:edit $logdiractivity.log
  304.   ...DCC.log:edit $logdirdcc.log
  305.   ...Status.log:edit $logdirstatus.log
  306.   ...Whois.log:edit $logdirwhois.log
  307.   ..Other...:_timer924off | set %.log $hfile="Select log to view:" [ [ $logdir ] $+ ] *.log | _timer924on | if ((%.log != $null) && (* !isin %.log)) edit %.log
  308.   ..-
  309.   ..WinZip all logs:ziplog
  310.   ..File Finder:ff -l
  311.   ..$iif(3.1 !isin $os,Explore):run $logdir
  312.   .$iif(3.1 isin $os,$null,File Finder)
  313.   ..Find files...:_askr ff Wildcard mask or words to search for in filename?
  314.   ..Directory...:_timer924off | set %.log $sdir="Select a directory to view:" c:\ | _timer924on | if ((%.log != $null) && (* !isin %.log)) ff $nofile(%.log) $+ *.*
  315.   ..-
  316.   ..Recent files:ff -r
  317.   ..DCCs
  318.   ...Recent sends:ff -s
  319.   ...Recent gets:ff -g
  320.   ...Incomplete gets:ff -x
  321.   ..-
  322.   ..Logs dir:ff -l
  323.   ..mIRC dir:ff -c
  324.   ..Download dir:ff -d
  325.   ..-
  326.   ..Sounds
  327.   ...MP2/3s:ff -m
  328.   ...Midis:ff -i
  329.   ...Waves:ff -w
  330.   ...-
  331.   ...%_^t.1:ff -z $gettok(%soundfile.custom,1,32)
  332.   ...%_^t.2:ff -z $gettok(%soundfile.custom,2,32)
  333.   ...%_^t.3:ff -z $gettok(%soundfile.custom,3,32)
  334.   ...%_^t.4:ff -z $gettok(%soundfile.custom,4,32)
  335.   ...%_^t.5:ff -z $gettok(%soundfile.custom,5,32)
  336.   .$iif(3.1 !isin $os,Explore)
  337.   ..Logs dir:run $logdir
  338.   ..mIRC dir:run $mircdir
  339.   ..Download dir:run $getdir
  340.   ..-
  341.   ..MP2/3s
  342.   ...%_^1.mp:run $_a1x(%_^1.mp)
  343.   ...%_^2.mp:run $_a1x(%_^2.mp)
  344.   ...%_^3.mp:run $_a1x(%_^3.mp)
  345.   ...%_^4.mp:run $_a1x(%_^4.mp)
  346.   ...%_^5.mp:run $_a1x(%_^5.mp)
  347.   ...%_^6.mp:run $_a1x(%_^6.mp)
  348.   ...%_^7.mp:run $_a1x(%_^7.mp)
  349.   ...%_^8.mp:run $_a1x(%_^8.mp)
  350.   ...%_^9.mp:run $_a1x(%_^9.mp)
  351.   ...%_^10.mp:run $_a1x(%_^10.mp)
  352.   ..Midis
  353.   ...%_^1.mid:run $_a1x(%_^1.mid)
  354.   ...%_^2.mid:run $_a1x(%_^2.mid)
  355.   ...%_^3.mid:run $_a1x(%_^3.mid)
  356.   ...%_^4.mid:run $_a1x(%_^4.mid)
  357.   ...%_^5.mid:run $_a1x(%_^5.mid)
  358.   ...%_^6.mid:run $_a1x(%_^6.mid)
  359.   ...%_^7.mid:run $_a1x(%_^7.mid)
  360.   ...%_^8.mid:run $_a1x(%_^8.mid)
  361.   ..Waves
  362.   ...%_^1.wav:run $_a1x(%_^1.wav)
  363.   ...%_^2.wav:run $_a1x(%_^2.wav)
  364.   ...%_^3.wav:run $_a1x(%_^3.wav)
  365.   ...%_^4.wav:run $_a1x(%_^4.wav)
  366.   ...%_^5.wav:run $_a1x(%_^5.wav)
  367.   ...%_^6.wav:run $_a1x(%_^6.wav)
  368.   ...%_^7.wav:run $_a1x(%_^7.wav)
  369.   ...%_^8.wav:run $_a1x(%_^8.wav)
  370.   ..-
  371.   ..%_^t.1
  372.   ...%_^1.1:run $_a1x(%_^1.1)
  373.   ...%_^2.1:run $_a1x(%_^2.1)
  374.   ...%_^3.1:run $_a1x(%_^3.1)
  375.   ...%_^4.1:run $_a1x(%_^4.1)
  376.   ...%_^5.1:run $_a1x(%_^5.1)
  377.   ..%_^t.2
  378.   ...%_^1.2:run $_a1x(%_^1.2)
  379.   ...%_^2.2:run $_a1x(%_^2.2)
  380.   ...%_^3.2:run $_a1x(%_^3.2)
  381.   ...%_^4.2:run $_a1x(%_^4.2)
  382.   ...%_^5.2:run $_a1x(%_^5.2)
  383.   ..%_^t.3
  384.   ...%_^1.3:run $_a1x(%_^1.3)
  385.   ...%_^2.3:run $_a1x(%_^2.3)
  386.   ...%_^3.3:run $_a1x(%_^3.3)
  387.   ...%_^4.3:run $_a1x(%_^4.3)
  388.   ...%_^5.3:run $_a1x(%_^5.3)
  389.   ..%_^t.4
  390.   ...%_^1.4:run $_a1x(%_^1.4)
  391.   ...%_^2.4:run $_a1x(%_^2.4)
  392.   ...%_^3.4:run $_a1x(%_^3.4)
  393.   ...%_^4.4:run $_a1x(%_^4.4)
  394.   ...%_^5.4:run $_a1x(%_^5.4)
  395.   ..%_^t.5
  396.   ...%_^1.5:run $_a1x(%_^1.5)
  397.   ...%_^2.5:run $_a1x(%_^2.5)
  398.   ...%_^3.5:run $_a1x(%_^3.5)
  399.   ...%_^4.5:run $_a1x(%_^4.5)
  400.   ...%_^5.5:run $_a1x(%_^5.5)
  401.   .$iif(3.1 isin $os,File manager):run winfile.exe
  402.   .-
  403.   .Recent
  404.   ..Run last file received:rec
  405.   ..Edit last file received:rec e
  406.   ..Play last file received:rec p
  407.   ..-
  408.   ..Recent files:ff r
  409.   ..Recent sends:ff s
  410.   ..Recent gets:ff g
  411.   .Notes:notes
  412.   Extras
  413.   .Colors/etc
  414.   ..Color window...    F6:colorwin
  415.   ..-
  416.   ..Click 'N' Color...    ShiftF6:cnc
  417.   ..Disable C'N'C    CtrlF6:cncoff
  418.   ..-
  419.   ..Color bar
  420.   ...Show me:showcolor
  421.   ...Say to window:saycolor
  422.   ..Styled message
  423.   ...Random colors...:set %_arhelp color /msg $active | _askr _arhelp Message to colorize?
  424.   ...Random colors + greys...:set %_arhelp color2 /msg $active | _askr _arhelp Message to colorize?
  425.   ...Funky text...:set %_arhelp funky /msg $active | _askr _arhelp Message to apply "funky" colors to?
  426.   ...Random checkerboard...:set %_arhelp checker /msg $active | _askr _arhelp Message to apply random checkerboard to?
  427.   ...Random bold + underline...:set %_arhelp codes /msg $active | _askr _arhelp Message to apply random bold and underline to?
  428.   .-
  429.   .Last seen
  430.   ..Display in status...:_askr seen Nickname or identd to look up?
  431.   ..Say to window...:set %_arhelp _mseen $active | _askr _arhelp Nickname or identd to look up?
  432.   ..-
  433.   ..Clear seen database...:_askyn clrseen Clear seen database entirely?
  434.   ..Clear data older than...:_askr clrseen Clear seen data older than how many days?
  435.   .Find user...:_askr finduser User to find? (finds a user's new nickname after changing it while not on a channel with you)
  436.   .-
  437.   .Repeated msg
  438.   ..Repeat channel message...:set %_arhelp _ptimer1 $false msg | _pentry _arhelp Repeat message in what channel(s)?(Enter for all)
  439.   ..Repeat channel action...:set %_arhelp _ptimer1 $false me | _pentry _arhelp Repeat message in what channel(s)?(Enter for all)
  440.   ..-
  441.   ..Repeat message with anti-repeat...:set %_arhelp _ptimer1 $true msg | _pentry _arhelp Repeat message in what channel(s)?(Enter for all)
  442.   ..Repeat action with anti-repeat...:set %_arhelp _ptimer1 $true me | _pentry _arhelp Repeat message in what channel(s)?(Enter for all)
  443.   .Repeated join
  444.   ..Repeat a join attempt...:_askr repjoin Channel to repeatedly attempt join of, until admitted?
  445.   ..-
  446.   ..View current attempts:repjoin -v
  447.   ..Disable all current join attempts:repjoin -c
  448.   .-
  449.   .Clock
  450.   ..$_dynpop($_if(%pp.clock,==,15)) Display on quarter hour:disp You will be reminded of the time every 15 minutes. | set %pp.clock 15 | _clock
  451.   ..$_dynpop($_if(%pp.clock,==,30)) Display every half hour:disp You will be reminded of the time every 30 minutes. | set %pp.clock 30 | _clock
  452.   ..$_dynpop($_if(%pp.clock,==,60)) Display every hour:disp You will be reminded of the time every 60 minutes. | set %pp.clock 60 | _clock
  453.   ..$_dynpop($_if(%pp.clock,==,0)) Disabled:disp Clock disabled. (you will not be reminded of the time) | set %pp.clock 0 | _clock
  454.   ..-
  455.   ..$_dynpop(%pp.clock.beep) Beep on:disp P&P will beep when reminding you of the time. | set %pp.clock.beep $true
  456.   ..$_dynpop($_not(%pp.clock.beep)) Beep off:disp P&P will not beep when reminding you of the time. | set %pp.clock.beep $false
  457.   ..-
  458.   ..$_dynpop(%pp.clock.active) Show in active:disp Time reminders will show in the current window. | set %pp.clock.active $true
  459.   ..$_dynpop($_not(%pp.clock.active)) Show in status:disp Time reminders will show in the status window. | set %pp.clock.active $false
  460.   ..-
  461.   ..$_dynpop(%pp.clock.save) Retain setting on exit:disp Clock setting will remain the same when you restart mIRC. | set %pp.clock.save $true
  462.   ..$_dynpop($_not(%pp.clock.save)) Disable on exit:disp Clock will be disabled when you exit mIRC. | set %pp.clock.save $false
  463.   .Alarm
  464.   ..In X minutes...:_askr _palarm1 How many minutes before alarm?
  465.   ..At specific time...:_askr _palarm2 Activate alarm when? (in form ##:## or ##:##a/p)
  466.   .Alarm with sound
  467.   ..In X minutes...:_timer924off | set %.snd $dir="Sound for alarm?" $wavedir | _timer924on | if ((%.snd == $null) || (* isin %.snd)) halt | set %_arhelp _palarm1 $replace(%.snd,$chr(32),?) | _askr _arhelp How many minutes before alarm?
  468.   ..At specific time...:_timer924off | set %.snd $dir="Sound for alarm?" $wavedir | _timer924on | if ((%.snd == $null) || (* isin %.snd)) halt | set %_arhelp _palarm2 $replace(%.snd,$chr(32),?) | _askr _arhelp Activate alarm when? (in form ##:## or ##:##a/p)
  469.   -
  470.   Channels
  471.   .%^chan.1:set %.ch $_a1x($gettok(%^chan.1,2,32)) | j %.ch $_keys(%.ch)
  472.   .%^chan.2:set %.ch $_a1x($gettok(%^chan.2,2,32)) | j %.ch $_keys(%.ch)
  473.   .%^chan.3:set %.ch $_a1x($gettok(%^chan.3,2,32)) | j %.ch $_keys(%.ch)
  474.   .%^chan.4:set %.ch $_a1x($gettok(%^chan.4,2,32)) | j %.ch $_keys(%.ch)
  475.   .%^chan.5:set %.ch $_a1x($gettok(%^chan.5,2,32)) | j %.ch $_keys(%.ch)
  476.   .%^chan.6:set %.ch $_a1x($gettok(%^chan.6,2,32)) | j %.ch $_keys(%.ch)
  477.   .%^chan.7:set %.ch $_a1x($gettok(%^chan.7,2,32)) | j %.ch $_keys(%.ch)
  478.   .%^chan.8:set %.ch $_a1x($gettok(%^chan.8,2,32)) | j %.ch $_keys(%.ch)
  479.   .%^chan.9:set %.ch $_a1x($gettok(%^chan.9,2,32)) | j %.ch $_keys(%.ch)
  480.   .-
  481.   .$_tf2any($gettok(%^chan.2,1,32),%pp.lock,$null):if (%pp.lock == Lockchannellist) { set %pp.lock Unlocklist(currentlylocked) | disp Popups channel list is locked and will not change until you unlock it. } | else { set %pp.lock Lockchannellist | disp Popups channel list is now unlocked and will dynamically change as you join channels. }
  482.   .$_tf2any($gettok(%^chan.2,1,32),Joinall,$null):set %.num 1 | unset %.ch | :loop | set %.ch %.ch $gettok(%^chan. [ $+ [ %.num ] ] ,2,32) | if ($_vi(.num) <= 9) goto loop | set %.ch $_s2c($_a1x(%.ch)) | j %.ch $keys(%.ch)
  483.   .%^chan.clear:unset %^chan.* | set %pp.lock Lockchannellist
  484.   .-
  485.   .Join other...:_askr j Channel to join?
  486.   .List channels
  487.   ..with 5 or more users:.raw list >4
  488.   ..with 10 or more users:.raw list >9
  489.   ..with X or more users...:_askr _clist Minimum number of users on channel to list?
  490.   ..-
  491.   ..all (for smaller networks):.raw list
  492.   Away
  493.   .$_dynpop($_if( [ $_ifn(%_away.why) ] != null & [ $_ifn(%_+away.quiet) ] == $false)) Away...    F12:a
  494.   .$_dynpop($_if( [ $_ifn(%_away.why) ] == null)) Back    F12:back
  495.   .-
  496.   .$_dynpop($_if( [ $_ifn(%_away.why) ] != null & [ $_ifn(%_+away.quiet) ] == $true)) Quiet away...    ShiftF12:qa
  497.   .$_dynpop($false) Quiet back    ShiftF12:qb
  498.   .-
  499.   .$_dynpop(%+pager) Pager
  500.   ..$_dynpop(%+pager) On:pager on
  501.   ..$_dynpop($_not(%+pager)) Off:pager off
  502.   .$_dynpop(%+awaylog.on) Logging
  503.   ..$_dynpop(%+awaylog.on) On:if (%_away.why == $null) { set %_arhelp awaylog on | _askyn _arhelp Enable logging by default, when away? } | awaylog on
  504.   ..$_dynpop($_not(%+awaylog.on)) Off:if (%_away.why == $null) { set %_arhelp awaylog off | _askyn _arhelp Disable logging by default, when away? } | awaylog off
  505.   ..-
  506.   ..View...    CtrlF12:awaylog
  507.   ..Flush:awaylog f
  508.   .-
  509.   .Configure...:config awaysys
  510.   -
  511.   Help:help ! menubar popups
  512. }
  513. menu query {
  514.   User info
  515.   .Whois    ShiftF2:w " $+ $1"
  516.   .Extended whois:w " $+ $1" " $+ $1"
  517.   .-
  518.   .User central:uwho $1
  519.   .Address book:abook $1
  520.   .-
  521.   .%s^n
  522.   ..Info:_msgns info $1
  523.   ..-
  524.   ..Access:_msgns acc $1
  525.   .-
  526.   .Get DNS:dns $1
  527.   .Get hostmask:host $1
  528.   .Unix finger:finger $1
  529.   User level
  530.   .View:user $1
  531.   .Authorize:auth $1
  532.   .-
  533.   .Level 1 (no access):user $1 1
  534.   .Level 50 (safe):user $1 50
  535.   .Level 75 (protected):user $1 75
  536.   .-
  537.   .Add sublevel
  538.   .."chat"    (auto accept DCC chats):user $1 +chat
  539.   .."send"    (auto accept DCC sends):user $1 +send
  540.   .."nodcc"    (auto ignore DCCs):user $1 +nodcc
  541.   .."voice"    (auto voice user):user $1 +voice
  542.   .."op"    (op on ANY channel via password):user $1 +op
  543.   .."nopw"    (with "op", ops without password):user $1 +nopw
  544.   .Remove sublevel
  545.   .."chat"    (auto accept DCC chats):user $1 -chat
  546.   .."send"    (auto accept DCC sends):user $1 -send
  547.   .."nodcc"    (auto ignore DCCs):user $1 -nodcc
  548.   .."voice"    (auto voice user):user $1 -voice
  549.   .."op"    (remove ALL ops access):user $1 -op
  550.   .."nopw"    (ops without password):user $1 -nopw
  551.   Notify
  552.   .Add to notify (any server)
  553.   ..No address check...:set %_arhelp notify -a $1 | _pentry _arhelp Note to use for user's notify?2
  554.   ..Identd check...:set %_arhelp notify -ai $1 | _pentry _arhelp Note to use for user's notify?2
  555.   ..Identd + domain check...:set %_arhelp notify -ad $1 | _pentry _arhelp Note to use for user's notify?2
  556.   .Add to notify (this server only)
  557.   ..No address check...:set %_arhelp notify -av $1 | _pentry _arhelp Note to use for user's notify?2
  558.   ..Identd check...:set %_arhelp notify -aiv $1 | _pentry _arhelp Note to use for user's notify?2
  559.   ..Identd + domain check...:set %_arhelp notify -adv $1 | _pentry _arhelp Note to use for user's notify?2
  560.   .-
  561.   .Remove from notify:notify -r $1
  562.   -
  563.   Ignore
  564.   .Tell user they are ignored
  565.   ..Permanent...:_pqign 1 $1 x x
  566.   ..60 seconds...:_pqign 1 $1 s 60
  567.   ..X seconds...:set %_arhelp _pqign 1 $1 s | _askr _arhelp Ignore for how many seconds?
  568.   ..X minutes...:set %_arhelp _pqign 1 $1 m | _askr _arhelp Ignore for how many minutes?
  569.   .-
  570.   .All but channel text
  571.   ..Permanent:_pqign2 2 $1 x x
  572.   ..60 seconds:_pqign2 2 $1 s 60
  573.   ..X seconds...:set %_arhelp _pqign2 2 $1 s | _askr _arhelp Ignore for how many seconds?
  574.   ..X minutes...:set %_arhelp _pqign2 2 $1 m | _askr _arhelp Ignore for how many minutes?
  575.   .All including channel text
  576.   ..Permanent:_pqign2 3 $1 x x
  577.   ..60 seconds:_pqign2 3 $1 s 60
  578.   ..X seconds...:set %_arhelp _pqign2 3 $1 s | _askr _arhelp Ignore for how many seconds?
  579.   ..X minutes...:set %_arhelp _pqign2 3 $1 m | _askr _arhelp Ignore for how many minutes?
  580.   .-
  581.   .Unignore:ignore -r 3 $1
  582.   Logging
  583.   .Logging on:log on
  584.   .Logging off:log off
  585.   .-
  586.   .Save buffer and begin logging:savelog
  587.   .-
  588.   .View log:vlog #
  589.   .Erase log:dellog #
  590.   Extras
  591.   .Font
  592.   ..Basic font:font $_rtok(1,32,%font.basic) $_ltok($_j($_numtok(32,%font.basic)),32,%font.basic)
  593.   ..Popup font:font $_rtok(1,32,%font.quick) $_ltok($_j($_numtok(32,%font.quick)),32,%font.quick)
  594.   ..-
  595.   ..Fixedsys:font 15 fixedsys
  596.   ..Arial:font $_rtok(1,32,%font.basic) arial
  597.   ..Times New Roman:font $_rtok(1,32,%font.basic) times new roman
  598.   ..-
  599.   ..Select...:font
  600.   .Rerouting
  601.   ..Reroute $active $+ ...:set %_arhelp rr $active | _askr _arhelp Channel, nickname, or DCC chat to reroute $active to? (prefix a DCC chat with an = sign)
  602.   ..Link $active $+ ... (two-way reroute):set %_arhelp rr -l $active | _askr _arhelp Channel, nickname, or DCC chat to link $active to? (prefix a DCC chat with an = sign)
  603.   ..Disable reroute:rr $active
  604.   ..-
  605.   ..Reroute ALL queries...:set %_arhelp rr !msg | _askr _arhelp Channel, nickname, or DCC chat to reroute ALL private messages to? (prefix a DCC chat with an = sign)
  606.   ..Reroute ALL DCC chats...:set %_arhelp rr !chat | _askr _arhelp Channel, nickname, or DCC chat to reroute ALL DCC chats to? (prefix a DCC chat with an = sign)
  607.   ..Disable ALL rerouting:rr c
  608.   ..-
  609.   ..How to reroute
  610.   ...$_dynpop(%+reroute.showpriv) Prefix with (msg) or (dcc)
  611.   ....$_dynpop(%+reroute.showpriv) On:rr +p
  612.   ....$_dynpop($_not(%+reroute.showpriv)) Off:rr -p
  613.   ...$_dynpop(%+reroute.showmine) Show what you type
  614.   ....$_dynpop(%+reroute.showmine) On:rr +m
  615.   ....$_dynpop($_not(%+reroute.showmine)) Off:rr -m
  616.   ..View rerouting settings...:rr v
  617.   .-
  618.   .%s^mm:set %_arhelp _msgms send $1 | _askr _arhelp Memo to send via MemoServ to $1 $+ ?
  619.   .-
  620.   .Find user:finduser $1
  621.   -
  622.   Ping
  623.   .Standard    F2:ping $1
  624.   .-
  625.   .Fake ping:fping $1
  626.   .Version ping:vping $1
  627.   .Server ping:sping $1
  628.   .-
  629.   .DCC ping    F2:dcp
  630.   CTCP
  631.   .Clientinfo:cinfo $1
  632.   .Finger:fing $1
  633.   .Page...:set %_arhelp page $1 | _pentry _arhelp Message to send with page?2
  634.   .Script:script $1
  635.   .Seen...:set %_arhelp ctcp $1 seen | _askr _arhelp User to ask $1 if they have seen? (via CTCP)
  636.   .Time:time $1
  637.   .Userinfo:uinfo $1
  638.   .Version:ver $1
  639.   .-
  640.   .Other...:set %_arhelp ctcp $1 | _askr _arhelp CTCP to send to $1 $+ ?
  641.   .CTCP reply...:set %_arhelp ctcpreply $1 | _askr _arhelp CTCP reply to send to $1 $+ ?
  642.   DCC
  643.   .Chat:c $1
  644.   .Chat to IP:if (= isin $active) c $chat($1).ip | elseif (@ isin $query($1).address) c $gettok($query($1).address,2-,64) | else c . $+ $1
  645.   .-
  646.   .Send...:s $1
  647.   .Send to IP...:if (= isin $active) s $chat($remove($active,=)).ip | elseif (@ isin $query($1).address) s $gettok($query($1).address,2-,64) | else s . $+ $1
  648.   .-
  649.   .Authorize    5 min:auth $1 5
  650.   .Authorize    10 min:auth $1 10
  651.   .Authorize    15 min:auth $1 15
  652.   -
  653.   Close:if (= isin $active) close -c $remove($active,=) | else closemsg $active
  654.   Help:help ! query popups
  655. }
  656.